主题：数值显示控制

技服人员，你好。

参考

 

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

 

请回复。

Dim Cur_table As WinForm.Table = e.Form.Controls("Table1")
For Each dt As DataCol In Cur_table.Table.DataTable.DataCols
    If dt.IsNumeric Then
        dt.SetFormat("0.00")
    End If
Next

如何改成全局代码呢？方便修改只要改动一处代码。还有价格参数调用，比如，2就设置为“0.00”，3就设置为“0.000”.请指导

比如，你可以改成这样

 

Dim Cur_table As WinForm.Table = e.Form.Controls("Table1")
For Each dt As DataCol In Cur_table.Table.DataTable.DataCols
    If dt.IsNumeric Then
        dt.SetFormat(vars("格式"))
    End If
Next

然后，你动态设置 vars("格式") = "0.00"

窗口有10几个，如果在每个窗口的Table1的AfterLoad的事件中输入代码，以后修改怕忘了某个窗口，我想改成全局代码，这样修改规则只要修改全局代码就行，减少出错。

必须写在每个窗口，才行。

 

如果确实需要全局去做，可以写到CurrentTableChanged事件，或者做一个定时器，定时执行代码。