主题：SQL语句问题

除了杨版主说的：

 

Dim J As Double=e.Form.controls("textbox4").text '原始金额

 

应该改为：

 

Dim J As Double=e.Form.controls("textbox4").Value '原始金额

 

还要注意列类型，逻辑和不需要单引号，字符需要单引号，日期要用#括起来，如果是SQL Server，日期也用单引号。

假定新增时间是日期型，原是金额是数值，状态时字符，对于Access数据源：

 

cmd.commandtext="insert into {Card_Set} ([新增时间],[原始金额],[状态]) values(#" & T & "#, " & J & ", '" & Z & "')"

 

如果是SQL SQLServer：

 

cmd.commandtext="insert into {Card_Set} ([新增时间],[原始金额],[状态]) values('" & T & "', " & J & ", '" & Z & "')"

 

不管是代码还是表达式，数据类型是一切的基础。

 

建议看看：

http://www.foxtable.com/help/topics/1580.htm

http://www.foxtable.com/help/topics/1284.htm