Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SEL1ECT DISTINCT 对账品名 From {标签明细} where 库存店名='周六福(1)' And 库存备注='柜台货' "
dt = cmd.ExecuteReader()
Dim str1() As String = dt.GetComboListString("对账品名").split("|")
With wb.AddCheckGroup("", "rdg2", "店名筛选")
For i1 As Integer = 0 To str1.length - 1
.Add("bws_" & str1(i1), str1(i1), True) '默认勾选
Next
End With
Dim dr2 As DataRow = DataTables("税务局查账显示").sqlFind("企业名称 = '" & dr1("企业名称") & "'")
Value =dr2("对账品名")
像这个什么弄