第一句就错了:Dim drs As DataCol = DataTables("付款管理").DataCols("付款金额")
按这样写 JINE=drs("付款金额") 因为没有指定某一行,肯定赋值不了