Question

大家好我有一个问题。

我有3个重要的专栏，分别是：纳玛（Nama），榛子（Hasil）和Satuan。 Nama和Satuan列从数据库获取但不适用于Hasil栏手动输入“ Hasil”列的值，那么我如何在水晶储罐中获得该价值？您想看看并帮助我吗？非常感谢

Dim MyRrpt As New CR_TestOrder2
Dim dsOrder As New DataSet

Dim listkode As New List(Of String)
Dim row As DataGridViewRowCollection
row = dgv_hasillab.Rows

dt_order = New DataTable
dt_order.Clear()
dt_order.Columns.Add("Pemeriksaan")
dt_order.Columns.Add("Hasil")
dt_order.Columns.Add("Nilairujukan")
dt_order.Columns.Add("Satuan")

For j As Integer = 0 To dgv_hasillab.Rows.Count - 1
    Dim cek As Boolean = CBool(row(j).Cells(6).Value)
    If cek = True Then
        dt_order.Rows.Add(row(j).Cells(1).Value, row(j).Cells(2).Value, row(j).Cells(3).Value, row(j).Cells(4).Value)
    End If
Next

dsOrder.Tables.Add(dt_order)
'aman -cara I 
Frm_TestOrder.crv_testorder.SelectionFormula = "{tabelpasien.nama}='" + txt_namaOrder.Text + "'"
MyRrpt.SetDataSource(dt_order)

Frm_TestOrder.crv_testorder.ReportSource = MyRrpt
Frm_TestOrder.crv_testorder.Refresh()
Frm_TestOrder.Show()

使用VB.Net将数据从Datagridview发送到Crystal报表

0 个答案: