主题：给狐表提几个建议

全是关于快速录入方面的

狐表在快速录入方面下了很多功夫，通过演示文件可以看出，很好很强大。但在实际使用过程中发现又有点缺憾。

比如：

1、

此主题相关图片如下：未命名.jpg

要做个下拉列表，我想

此主题相关图片如下：未命名.jpg

取值单位编码，显示单位简称，可以这样设置，但是确发现，只是下拉的时候显示单位简称，选好了填上去就变成编码了。能选和填看上去都是单位简称，存储的是编码吗？

 

2、要想实现上述要求还有一个办法，就是数据字典功能

 

此主题相关图片如下：未命名.jpg

我可以这样设置，但这样不管下拉，还是填上去后都是文字了，但有个问题就是不能直接输入了，必须通过下拉来选。如果我通过条码枪扫编码进去，不就要求能直接输入么。

用你的第一个方案,结合DrawCell

楼主可能没理解"取值列"的含义

取值列是什么含义呢？

请教如何 drawcell

我刚写了这样的代码 但有错误，请指教

If e.col.Name = "客户_个人" Then
    Dim dr As DataRow = DataTables("个人").Find("编号 = e.text ")
    e.text = dr("姓名")
End If

 

错误在于 "编号 = e.text " 这个表达式中

我改成

If e.col.Name = "客户_个人" Then
    Dim dr As DataRow = DataTables("个人").Find("编号 = '" &e.text &"'")
    e.text = dr("姓名")
End If

还是有错误

  很简单的  比如你的网名是ABCD是显示列,  但是取值列是你的真名,那么输入就是真实名字  如此而已.

这位兄台应该好好看看帮助才是

drawcell里用到find还是头一次见到

可能是我智力愚钝呀，不要笑话，帮助文件 全文 我已经阅读了2遍了，

DrawCell

在绘制单元格的时候执行，主要用于标记数据。
　
e参数属性：

Table: 准备绘制的表
Row:   准备绘制的行
Col:   准备绘制的列
Style：指定自定义样式的名称，如果用默认的样式绘制单元格，无须设置Style属性。
Text： 字符型，获得或者设置要绘制的文本内容

因为DrawCell事件执行非常频繁，所以代码必须简洁，不可以有太耗时的复杂代码，也不能有显示对话框的代码，否则会出现死循环，切记切记。

示例一

然后增加两个样式，分别是优秀和不及格，前者的背景颜色设为绿色，后者的背景颜色设为红色。

最后在DrawCell事件中设置如下代码：

'如果是数值型列，且不是总分列
If e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) < 60 Then '如果该列的值小于60
            e.Style = "不及格" '那么用"不及格"样式绘制单元格
        ElseIf e.Row(e.Col.Name) > 95 Then '如果单元格的值大于95
            e.Style = "优秀" '那么用"优秀"样式绘制单元格
        End If
    End If
End If

 

现在程序将用不同的背景颜色，分别标出优秀和不及格的分数：

示例三

示例四

DrawCell事件使用自定义样式来标记单元格。
每个DataTable都有Styles集合，用于获得指定名称的自定义样式，例如：

DataTables("成绩表").Styles("不及格")

表示成绩表的不及格样式。

样式包括以下属性：

BackColor： 背景颜色
ForeColor： 字体颜色
FontBold：  逻辑型，设为True，字体加粗
FontItalic：逻辑型，设为True，字体倾斜
FontStrikeout：逻辑型，设为True，字体带删除线
FontUnderline：逻辑型，设为True，字体带下划线

例如对于不及格的成绩，不仅要求用红色标记出来，而且希望能够不停地闪烁，实现的步骤为：

1、增加一个名为“不及格”的自定义样式，样式的背景颜色设为红色。

2、将DrawCell事件的代码设为：

'如果是数值型列，且不是总分列
If e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) < 60 Then '如果该列的值小于60
            e.Style = "不及格" '那么用"不及格"样式绘制单元格
        End If
    End If
End If

3、在计划管理(位于数据库功能区)中增加一个计划，时间间隔设为1000，代码设为

With DataTables("成绩表").Styles("不及格")
    If .BackColor = Color.Red Then
        .BackColor = Color.White
    Else
        .BackColor = Color.Red
    End If
End With

drawcell不能用find 又该用什么呢？希望大家实在的帮助我一下，告诉我具体错在那里，该怎么做，这样新手才有成长。

只告诉我 不能用find新手实在不能悟出改用什么？