试试
Dim dr As DataRow
dr = DataTables("customer").Find("customer_card_no like '55554444%'")
If dr IsNot Nothing Then '如果找到的话
messagebox.Show ("Name :" & dr("customer_cname") )
messagebox.Show ("Number : " & dr("customer_card_no"))
Else
messagebox.Show (" Not found ")
End If
或者试试
Dim dr As DataRow
dr = DataTables("customer").sqlFind("customer_card_no like '55554444%'")
If dr IsNot Nothing Then '如果找到的话
messagebox.Show ("Name :" & dr("customer_cname") )
messagebox.Show ("Number : " & dr("customer_card_no"))
Else
messagebox.Show (" Not found ")
End If
加好友 
发短信
Post By：2018/8/30 20:56:00 [显示全部帖子]
