主题：[求助]关于Date类型

日期字段通过合成表达式后，报错。请高手指点。

前提：hc表和后厨表中都含有“rq(日期)，gysh(供应商)，mch(名称)”字段

后厨表的“CurrentChanged”

Dim dr1 As Row = e.Table.Current
Dim dr2 As DataRow = DataTables("hc").Find("rq = #" & dr1("riqi") & "# and gysh = '" & dr1("gysh") & "' and [mch] = '" & dr1("mch") & "'")
Dim wzh As Integer
If dr2 IsNot Nothing Then
    wzh = Tables("hc").FindRow(dr2)
    If wzh >= 0 Then
        Tables("hc").Position = wzh
    Else
        MessageBox.Show("Table中没有匹配的数据!可能是进行了筛选.","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End If
Else
    MessageBox.Show("DataTable中没有匹配的数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If