改一下
Dim strProdType As String =e.Form.Controls("tblProdType").Table.Current("类别")Dim strHGBM As String = e.Form.Controls("tblProdType").Table.Current("编码")
Dim r As Row = Tables("Product").Currentr("F2")= strProdType r("F3")= strHGBM
msgbox(strProdType)