主题：[求助]求代码，根据规则自动生成字段值。

提示，未将对象引用设置到对象的实例 是什么问题？

 

我检查了SELECT FCurNo,FDesc FROM {ICBillNo} WHERE  FBillID= '1030002'这句SQL，是有返回值的。

Dim cmd As New SQLCommand
Dim BillInfo As DataTable
cmd.CommandText = "SELECT FCurNo,FDesc FROM {ICBillNo} WHERE FBillID= '1030002'"
BillInfo = cmd.ExecuteReader()
if BillInfo.DataRows.Count > 0 then
    for each dr as datarow in BillInfo
        output.show(dr("FCurNo"))
        output.show(dr("FDesc"))
    next

else

    messagebox.show("没有行")
End if

运行结果同上，BillInfo.DataRows.Count 应该是>0的

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

 

对对对！

加上cmd.ConnectionName 就OK了。谢谢！！！

我帮助看的不认真啊！

 

Dim NewRw As Row
  NewRw=Tables("T_CC_StockBill").AddNew()
  NewRw("FID")=Tables("T_CC_StockBill").Rows(Tables("T_CC_StockBill").Rows.Count-1)("FID")+1
  NewRw("FBillNo")="XSD"+Str(Date.Today.Year)+Str(Date.Today.Month)+Str(Date.Today.Day)+Vars("CurNo")

 

这段代码报错，原因是表T_CC_StockBill先执行AddNew时默认FID值为空，导致AddNew失败，下面对FID赋值的语句也就无效了。

 

提示“列FID不允许是空值”

 

PS：

之前看一个关于列自动编号的帖子，通过_Identify列可以实现，但是我是外部数据源，帮助里说只有内部数据表才有_Identify列。是不是我的FID只能通过代码实现了？

解决方法在这里的示例二：
 
http://www.foxtable.com/help/topics/0630.htm

 

编号的问题解决！

 

e.DataRow("FBillNo")="XSD"+Trim(Str(Date.Today.Year))+Trim(Str(Date.Today.Month))+Trim(Str(Date.Today.Day))+"0"+Trim(Str(Vars("CurNo"))) 

 

这一句中，Date.Today.Month的结果返回是8，我需要的是08，请问如何修改呢？

 

Format("8","00")

 

就是08

Format(Date.Today,"yyyyMMdd")