rst.Fields(0).Value = Trim(KHDMT.Text)
rst.Fields(1).Value = Trim(KHDWT.Text)
rst.Fields(2).Value = Trim(YBT.Text)
rst.Fields(3).Value = Trim(LXRT.Text)
rst.Fields(4).Value = Trim(DZT.Text)
rst.Fields(5).Value = Trim(DHT.Text)
rst.Fields(6).Value = Trim(EMAILT.Text)
rst.Fields(7).Value = Trim(CZT.Text)
把上边的Trim去掉~~
改成
rst.Fields(0).Value = KHDMT.Text
rst.Fields(1).Value = KHDWT.Text
rst.Fields(2).Value = YBT.Text
rst.Fields(3).Value = LXRT.Text
rst.Fields(4).Value = DZT.Text
rst.Fields(5).Value = DHT.Text
rst.Fields(6).Value = EMAILT.Text
rst.Fields(7).Value = CZT.Text
rst.Fields(1).Value = Trim(KHDWT.Text)
rst.Fields(2).Value = Trim(YBT.Text)
rst.Fields(3).Value = Trim(LXRT.Text)
rst.Fields(4).Value = Trim(DZT.Text)
rst.Fields(5).Value = Trim(DHT.Text)
rst.Fields(6).Value = Trim(EMAILT.Text)
rst.Fields(7).Value = Trim(CZT.Text)
把上边的Trim去掉~~
改成
rst.Fields(0).Value = KHDMT.Text
rst.Fields(1).Value = KHDWT.Text
rst.Fields(2).Value = YBT.Text
rst.Fields(3).Value = LXRT.Text
rst.Fields(4).Value = DZT.Text
rst.Fields(5).Value = DHT.Text
rst.Fields(6).Value = EMAILT.Text
rst.Fields(7).Value = CZT.Text
sql = "Select * From 客户表 where CustomerCode like " & "'" & KHDMT.Text & "'"
既然你数据库字段类型为文本不是INT,那你查询的时候就必须有'.如果是INT型就不用'.
sql = "Select * From 客户表 where CustomerCode =" & "'" & KHDMT.Text & "'"
rst.Fields(1).Value = Trim(KHDWT.Text) &""
rst.Fields(2).Value = Trim(YBT.Text) &""
rst.Fields(3).Value = Trim(LXRT.Text) &""
rst.Fields(4).Value = Trim(DZT.Text) &""
rst.Fields(5).Value = Trim(DHT.Text) &""
rst.Fields(6).Value = Trim(EMAILT.Text) &""
rst.Fields(7).Value = Trim(CZT.Text) &""
==============================================================
试一下这个吧 应该可以的 解决添加新记录过程中“字段为空”的问题
如果是 ACCESS 的话 就在数据库表 的 设计视图 中 把相应的字段 设为 "允许空字符串"
针对 字符型 字段
可能是我不会