回复 8 楼 qjbzjp
还得再通过value属性把text控件中需要填数值的都赋成0.00值,command5中代码也得赋成0.00值,需要留两位小数,否则输入时不能输入小数,然后完美运行~~~
程序代码: replace 岩石名称 with alltrim(thisform.text10.value);
采样地点 with alltrim(thisform.text11.value);
分析号 with alltrim(thisform.text1.value);
现场号 with alltrim(thisform.text2.value);
含水量 with VAL(thisform.text17.value);
容重 with VAL(thisform.text5.value);
干容重 with VAL(thisform.text3.value);
岩块吸水率 with VAL(thisform.text18.value);
粉末吸水率 with VAL(thisform.text6.value);
胶结系数 with VAL(thisform.text4.value);
浸水破坏性 with alltrim(thisform.text19.value);
液限 with VAL(thisform.text7.value);
塑限 with VAL(thisform.text8.value);
塑性指数 with VAL(thisform.text20.value);
胶结程度 with alltrim(thisform.text9.value);
膨胀性 with alltrim(thisform.text13.value)









