Dim month As String = "七月份"
Dim day As Integer = 15
Dim fdr As DataRow = DataTables("表A").Find("日期 = " & day)
If fdr IsNot Nothing Then
msgbox(fdr(month))
Else
msgbox("没有找到")
End If
加好友 
发短信
Post By：2017/6/21 22:23:00 [只看该作者]
