关于字符转换日期的有关问题

2013-11-18

关于字符转换日期的问题添加纪录的click代码如下：xmalltrim(thisform.combo1.value)chshshjalltrim(this

关于字符转换日期的问题

添加纪录的click代码如下：
xm=alltrim(thisform.combo1.value)
chshshj=alltrim(thisform.Text1.value)
chshl=ALLTRIM(thisform.text3.Value)
ydl=ALLTRIM(thisform.text4.Value)
df=ALLTRIM(thisform.text5.Value)
if empty(xm)
   messagebox("请选择用水单位名称",16,"系统提示")
   return
   else
endif
if empty(chshshj)
   messagebox("请输入抽水时间",16,"系统提示")
   return
   else
endif
if empty(chshl)
   messagebox("请输入抽水量",16,"系统提示")
   return
   else
endif
if empty(ydl)
   messagebox("请输入用电量",16,"系统提示")
   return
   else
endif
if empty(df)
   messagebox("请输入电费",16,"系统提示")
   return
   else
endif
msg=messagebox('确定要添加记录吗？',32+4,'系统提示')
if msg=6
INSERT INTO 机井抽水量(用水单位名称,抽水时间,抽水量,用电量,电费);
   VALUES(alltrim(thisform.combo1.value),;
   ALLTRIM(thisform.Text1.value),;
   alltrim(thisform.Text3.value),;
   ALLTRIM(thisform.text4.Value),;
   ALLTRIM(thisform.text5.Value))
   thisform.grid1.Refresh
   GO BOTTOM
   thisform.combo1.SetFocus
   thisform.combo1.Value=""
   thisform.Text1.value=""
   thisform.Text3.value=""
   thisform.text4.Value=""
   thisform.text5.Value=""
   thisform.Refresh
ENDIF
[解决办法]
ALLTRIM(thisform.Text1.value) 改成 CToD(ALLTRIM(thisform.Text1.value)) 即可

[解决办法]
1、主程序开头加代码：
Set Date YMD
Set Century On
Set Mark To "-"

2、将 Text1 的 Value 设为：{}

3、将你的
chshshj=alltrim(thisform.Text1.value)
改为
chshshj=thisform.Text1.value

4、表字段抽水时间设为日期型。

热点排行

VFP

关于字符转换日期的有关问题