专家坐堂-动态绑定副表列设置格式Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态绑定副表列设置格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123153)

--  作者：ZJZK2018
--  发布时间：2018/8/8 23:55:00
--  动态绑定副表列设置格式

Tables("标录分析_Table01")是动态绑定的副表，下面代码只能整列设置，但我的需求是其中一列中小于1的值设置格式“0.00%”，大于1的值设置格式“0.00”，但动态绑定的副表没有drawcell事件，如何处理？？谢谢

Dim tb1 As Table = Tables("标录分析_Table01")
Dim r As Row = tb1.Current
\'For Each r As Row In tb1.Rows
For Each cl As Col In tb1.Cols
If cl.IsNumeric Then
If r(cl.Name) <= 1 Then
tb1.Cols(cl.Name).DataCol.SetFormat("0.00%")
End If
If r(cl.Name) > 1 Then
tb1.Cols(cl.Name).DataCol.SetFormat("0.00")
End If
End If
Next
\'Next

--  作者：有点甜
--  发布时间：2018/8/9 9:29:00
--

Dim tb1 As Table = Tables("标录分析_Table01")
Dim r As Row = tb1.Current

For Each cl As Col In tb1.Cols
    If cl.IsNumeric Then
        Dim max As Double = tb1.Compute("sum(" & cl.Name & ")")
        If max <= 1 Then
            tb1.Cols(cl.Name).DataCol.SetFormat("0.00%")
        End If
        If max > 1 Then
            tb1.Cols(cl.Name).DataCol.SetFormat("0.00")
        End If
    End If
Next

--  作者：ZJZK2018
--  发布时间：2018/8/9 13:29:00
--
老师还是不对，

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:aaakkk.table

此主题相关图片如下：qq浏览器截图20180809132920.png

--  作者：有点甜
--  发布时间：2018/8/9 14:43:00
--

Dim tb1 As Table = Tables("标录分析_Table01")
Dim r As Row = tb1.Current

For Each cl As Col In tb1.Cols
    If cl.IsNumeric Then
        Dim max As Double = tb1.Compute("max(" & cl.Name & ")")
        If max <= 1 Then
            tb1.Cols(cl.Name).DataCol.SetFormat("0.00%")
        End If
        If max > 1 Then
            tb1.Cols(cl.Name).DataCol.SetFormat("0.00")
        End If
    End If
Next

--  作者：有点甜
--  发布时间：2018/8/9 14:55:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:aaakkk.table

--  作者：ZJZK2018
--  发布时间：2018/8/9 15:01:00
--
老师还是不对，我的需求是一列中小于1的值设置格式“0.00%”，大于1的值设置格式“0.00”
下面代码出错：

Dim tb1 As Table = Tables("窗口1_Table1")
For Each r As Row In tb1.Rows
For Each cl As Col In tb1.Cols
If cl.IsNumeric Then
If r(cl.Name) <= 1 Then
r(cl.Name) = Format(r(cl.Name),"0.00%")
Else
r(cl.Name) = Format(r(cl.Name),"0.00")
End If
End If
Next
Next

错误提示：
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.7.23.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
类型不匹配。

--  作者：有点甜
--  发布时间：2018/8/9 15:18:00
--

下载信息  [文件大小：304.0 KB  下载次数：0]

点击浏览该文件:aaakkk.table

--  作者：ZJZK2018
--  发布时间：2018/8/9 22:50:00
--
老师：
如果把其中一个数据类型改为整数型时，就出现错误,如何处理？

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.7.9.1
错误所在事件：全局表事件,DrawCell
详细错误信息：
调用的目标发生了异常。
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。

--  作者：有点甜
--  发布时间：2018/8/9 23:04:00
--

贴出你写的代码，或者改成

If e.Table.name = "窗口1_Table1" Then
    If e.Col.IsNumeric Then
        If val(e.text) < 1 Then
            e.text = format(val(e.text), "0.00%")
        Else
            e.text = format(val(e.text), "0.00")
        End If
    End If
End If

--  作者：ZJZK2018
--  发布时间：2018/8/11 17:05:00
--
老师你好：
1、我在全局表事件中：

\'\'\'\'\'========标录分析中动态加载表单元格格式设置=========
If e.Table.Name = "标录分析_Table01" Then
If e.Col.IsNumeric AndAlso e.Col.Name <> "中标球号" AndAlso e.Col.Name <> "公司球号" AndAlso e.Col.Name <> "投标家数" Then
If Val(e.Text) = 0 Then
e.Text = Nothing
Else
If Val(e.Text) <= 1 Then
e.Text = Format(Val(e.Text), "0.00%")
Else
e.Text = Format(Val(e.Text), "0")
End If
End If
End If
End If

2、在窗口按钮中写入：
\'自动取消窗口表中空值列的隐藏
With Tables("标录分析_Table01")
For Each cl As Col In .Cols
cl.Visible = True
Next
For Each c2 As Col In .Cols
Dim p As Integer = .FindRow(c2.Name & " Is Not Null")
If P = -1 Then
c2.Visible = False
End If
Next
End With

问题是窗口按钮没有删除空值列，如何处理？

此主题相关图片如下：88870841.png