下拉窗体录入错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

贴出你 NodeMouseClick 事件的代码。

改成这样，看弹出什么

If e.Node.Level = 2 Then '如果单击的是第三层节点

Dim tr As Row = Tables("预算资金申请单").Current

msgbox(tr is nothing)

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

msgbox(dr is nothing)

tr("类") = dr("类")

tr("款") = dr("款")

tr("项") = dr("项")

e.Form.DropDownBox.Value = tr("项")

e.Form.DropDownBox.CloseDropdown()

End If

1、单元格里面输入什么值？

2、不能直接根据一个数字得到？

http://www.foxtable.com/webhelp/scr/0319.htm

3、具体问题发实例说明

请正确上传附件。

以下是引用rgbjwjb在2018/1/28 16:19:00的发言：
附件已上传，谢谢！！！

没看到你的附件

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

1、用ie浏览器；

2、单独做个例子发上来，大小不要超过2M

If e.DataCol.name ="支付方式" Then
    Select e.DataRow("支付方式")
        Case "网上支付"
            e.DataRow("支付标志")= "√"
        Case "转账支piao"
            e.DataRow("支付标志")= "    √"
        Case "现金支piao"
            e.DataRow("支付标志")= "        √"
        Case "其他方式"
            e.DataRow("支付标志")= "              √"
    End Select
End If
If e.DataCol.name ="付款金额" Then
    Dim cs As String() = {"仟万","佰万","拾万","万","仟元","百元","拾元","元","角","分"}
    If e.NewValue = Nothing Then
        For Each c As String In cs
            e.DataRow(c) = Nothing
        Next
    Else
        Dim str = cunum(e.DataRow("付款金额")*100).padleft(cs.length,"零")
        e.DataRow("金额大写")= str
        For i As Integer = 0 To cs.length-1
            e.DataRow(cs(i)) = str(i)
        Next
    End If
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:申请单管理.table

1、对自己的项目压缩一下

http://www.foxtable.com/webhelp/scr/0006.htm

2、模式窗口不能这样写，你应该把【预算申请单B】改成独立窗口

http://www.foxtable.com/webhelp/scr/0697.htm

主题：下拉窗体录入错误