vb 中datagridview中 怎么控制某一列能输入小数，但是第一位不能是小数点，谢谢各位了？

wangnaisheng 2012-09-19 11:49:37
Private Sub txtEdit_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)

If Data_View.CurrentCell.ColumnIndex = 9 Or Data_View.CurrentCell.ColumnIndex = 10 Then

If ("0123456789/b".IndexOf(e.KeyChar) = -1) Then

If e.KeyChar <> Convert.ToChar(Keys.Back) Then

e.Handled = True

End If

End If
end sub
...全文
390 23 打赏 收藏 转发到动态 举报
写回复
用AI写文章
23 条回复
切换为时间正序
请发表友善的回复…
发表回复
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
If ("0123456789/b".IndexOf(e.KeyChar) = -1) Then

If e.KeyChar <> Convert.ToChar(Keys.Back) Then

e.Handled = True

End If

End If

你自己这代码不是已经写了吗??有问题没??
没问题的话,在里面再加上一个判断不就可以了???

if 小数点 then
if txtEdit.text<>"" then
e.handle=true
else
e.handle=false
end if
end if
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
各位大侠都哪里去了！
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
[Quote=引用 22 楼 的回复:]

'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then
'判断输入的小数点是否唯一
If e.KeyChar = "." Then
……
[/Quote]

非常感谢你哈！谢谢啦！
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then
'判断输入的小数点是否唯一
If e.KeyChar = "." Then
Dim str As String
str = txtFenYe.SelectedText
If str = txtFenYe.Text Then '这里处理选中了所有文本之后再敲第一个小数点
e.Handled = True
Exit Sub
End If

If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then '这里处理小数点不唯一

e.Handled = True
Else
If e.KeyChar = "." And CType(sender, TextBox).Text = "" Then '这里处理第一位的小数点
e.Handled = True
Exit Sub
End If
e.Handled = False
End If
End If
'判断输入的负号是否是在第一位
ElseIf e.KeyChar = "-" And CType(sender, TextBox).Text = "" Then
e.Handled = False
Else
e.Handled = True
End If

这段应该可以满足你了,实在有哪个贱人去复制粘贴,那就不管他了,靠~
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

'判断输入的小数点是否唯一
If e.KeyChar = "." Then

Dim str As String
str = txtFenYe.SelectedText
If str = txtFenYe.Text Then
e.Handled = True
Exit Sub
End If

If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then

e.Handled = True
Else
If e.KeyChar = "." And CType(sender, TextBox).Text = "" Then
e.Handled = True
Exit Sub
End If
e.Handled = False
End If
End If

'判断输入的负号是否是在第一位
ElseIf e.KeyChar = "-" And CType(sender, TextBox).Text = "" Then
e.Handled = False
Else
e.Handled = True
End If


这段代码,可以了,那种拷贝,粘贴的,我就不处理了,你自己把这个文本框的CTRL+V处理处理吧...
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

'判断输入的小数点是否唯一
If e.KeyChar = "." Then
Dim strlimit As String
strlimit = "0123456789."
Dim keychar As Char = e.KeyChar
If (InStr(strlimit, keychar) <> 0) Or e.KeyChar = Microsoft.VisualBasic.ChrW(8) Then
e.Handled = False
Else
e.Handled = True
End If





If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then

e.Handled = True
Else
If e.KeyChar = "." And CType(sender, TextBox).Text = "" Then
e.Handled = True
Exit Sub
End If
e.Handled = False
End If
End If

'判断输入的负号是否是在第一位
ElseIf e.KeyChar = "-" And CType(sender, TextBox).Text = "" Then
e.Handled = False
Else
e.Handled = True
End If

你拿去整整,看看,我觉得粘上了一个比较细的问题..有点头大.还真有好多情况要处理
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
[Quote=引用 17 楼 的回复:]

有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
[/Quote]

InStr(Text_fumoney.Text, ".") > 0 要是能取到datagridview中类似于Text_fumoney.Text这个值就好了。
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
[Quote=引用 17 楼 的回复:]

有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
[/Quote]

要是能判断输入的就行了。。


我是不会!

找到高手你了！

我相信你哈。
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
[Quote=引用 15 楼 的回复:]

你==,我调一下,那句其实是错的,我的工程对那个无所谓,所以我没看,刚才看了一下,是无效的代码
[/Quote]

好的，我用这段代码。那个是我调试用？你可以再这上调一下，谢谢你啦！！！

#Region "DGV"
Private Sub KeyPressCheck(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles CellEdit.KeyPress
If Me.Data_View.CurrentCell.ColumnIndex = 9 Or Me.Data_View.CurrentCell.ColumnIndex = 10 Then
Dim keyAscii As Integer = Asc(e.KeyChar)
If (keyAscii < Keys.D0) Or keyAscii > Keys.D9 Then _
If keyAscii <> Keys.Enter And keyAscii <> Keys.Back Then e.Handled = True

End If
End Sub

Friend WithEvents CellEdit As New DataGridViewTextBoxEditingControl
Private Sub datagridyf_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles Data_View.EditingControlShowing
If Me.Data_View.CurrentCell.ColumnIndex = 9 Or Me.Data_View.CurrentCell.ColumnIndex = 10 Then
CellEdit = e.Control
CellEdit.SelectAll()
End If
End Sub

'出错时追加方法 2012/03/08 TB ADD
Private Sub Data_View_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles Data_View.DataError

End Sub

#End Region
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
你==,我调一下,那句其实是错的,我的工程对那个无所谓,所以我没看,刚才看了一下,是无效的代码
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
其实你是要一段统计字符出现次数的代码,以判断小数点出现了几次.
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
[Quote=引用 12 楼 的回复:]

'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

'判断输入的小数点是否唯一
If e.KeyChar = "." And InStr(CType(……
[/Quote]

现在我没有处理好InStr(CType(sender, TextBox).Text, ".") > 0 这句话。

取到的datagridview中，的单价值总是取不到我输入的值啊？
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

'判断输入的小数点是否唯一
If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then
e.Handled = True
Else
e.Handled = False
End If


Else
e.Handled = True
End If
这段代码稍微改一改就行了呀!!!!这次我确信自己完全理解你的意思了.....
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
[Quote=引用 8 楼 的回复:]

你到底是什么意思??是你的datagridview里面不能显示小数点,还是显示成其它的了??
那你要把你的datagridview的显示数据的代码拿出来看看呀.

datagridview里面显示小数点,是很正常的吧?哪还要专门设置一下不能在第一位显示小数点?
[/Quote]

你看看我贴的代码吧！
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
Private Sub DataGridView1_EditingControlShowing1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles Data_View.EditingControlShowing
If Data_View.CurrentCell.ColumnIndex = 9 Or Data_View.CurrentCell.ColumnIndex = 10 Then
Dim txtedit As TextBox = DirectCast(e.Control, TextBox)
AddHandler txtedit.KeyPress, AddressOf txtEdit_KeyPress
End If
End Sub

Private Sub txtEdit_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
If Data_View.CurrentCell.ColumnIndex = 9 Or Data_View.CurrentCell.ColumnIndex = 10 Then
If ("0123456789/b".IndexOf(e.KeyChar) = -1) Then

If e.KeyChar <> Convert.ToChar(Keys.Back) Then
e.Handled = True
End If
End If
End If
End Sub


这是我的控制datagridview中一列是数量，一列是单价，
主要是控制单价能输入小数，，但是我上面的代码，限制输入小数点了。。

我的目标是，让他能输入小数点，但是只能是一个？这样说你明白了吧？


刚才我说的不明白吧，不好意思哈！
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 的回复:]

引用 6 楼 的回复:

这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求


文本框的我会，但是到datagridview中 我就不会了，数字什么的都能搞定，就是小数输入时 小数点不会弄？？
[/Quote]

或是说 InStr(CType(sender, TextBox).Text, ".") > 0 这句，怎么用datagridview中某一列的值怎么代替？我写的文本框的判断小数点输入代码是：
If e.KeyChar = "." Then
If Text_fumoney.Text.Length = 0 Then
If (e.KeyChar = ".") Then
e.Handled = True
End If
ElseIf e.KeyChar = "." And InStr(Text_fumoney.Text, ".") > 0 Then
e.Handled = True
End If

End If
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
你到底是什么意思??是你的datagridview里面不能显示小数点,还是显示成其它的了??
那你要把你的datagridview的显示数据的代码拿出来看看呀.

datagridview里面显示小数点,是很正常的吧?哪还要专门设置一下不能在第一位显示小数点?
wangnaisheng 2012-09-19
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 的回复:]

这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求
[/Quote]

文本框的我会，但是到datagridview中 我就不会了，数字什么的都能搞定，就是小数输入时 小数点不会弄？？
lvlvlvlylyly 2012-09-19
  • 打赏
  • 举报
 回复
这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求
加载更多回复（2）
DataGridView控制单元格修改的输入规则
本文介绍了一种在DataGridView中控制数值和价格输入的方法，通过监听KeyPress事件，限制用户只能输入合法的数字和小数点，确保数据的有效性和一致性。
碰一碰获客源码分享免费资源
详情请查看：安装点击我
C语言循环练习文件 -下载即用.zip
代码转载自：https://pan.quark.cn/s/a4b39357ea24 C-language ========== C语言练习代码
导入JAR包至IntelliJ工程
源码下载地址： https://pan.quark.cn/s/a4b39357ea24 在 IntelliJ IDEA 环境下导入 JAR 文件的多种途径 将由一位技术从业者向您阐述如何在 IntelliJ IDEA 中进行 JAR 文件的导入操作。 在 IntelliJ IDEA 平台内，导入 JAR 文件主要有两种途径：其一为将 JAR 文件纳入 Libraries 目录，其二为将 JAR 文件纳入 Dependencies 列表。 第一种方法：将 JAR 文件纳入 Libraries 目录 操作流程为，右键点击项目名称，随后选择 Module Settings 功能。在弹出的 Module Settings 窗口中，选取 Libraries 选项页，接着点击显示为黄色的加号 (+) 图标按钮。在随后出现的界面中，输入 JAR 文件的指定名称，例如设定为 lib，然后点击 Attach Classes... 功能，挑选需要附加的 JAR 文件，并确认 OK 操作。 第二种方法：将 JAR 文件纳入 Dependencies 列表 可通过点击文件菜单中的 Settings 选项，或直接在工具栏中选用扳手与螺母的图标按钮进入设置。在 Project Settings 窗口中，选择 Project Settings 选项，并定位到项目的根目录，将右侧面板切换至 Dependencies 上。之后，点击 Add... 按钮来选择需要添加的 JAR 文件，并完成 OK 确认。 JAR 文件的分类 在 IntelliJ IDEA 中，JAR 文件被区分为两种类别：私有 JAR 文件和公共 JAR 文件。私有 JAR 文件特指那些被添加到 Libraries 中的 JAR...
C程序范例宝典(基础代码)
代码下载链接： https://pan.quark.cn/s/90052d681b2f 本书系统地阐述了利用C语言进行程序开发的各种方法与技巧，全书总共分为十二个章节，涵盖了从基础到高级的多个方面，包括但不限于基础知识、指针运用、数据结构、算法设计、数学运算、文件处理、库函数应用、图形图像生成、系统调用、加密与安全机制、游戏开发以及综合案例等。整个书籍精心设计了三百个实例，每个实例都着重展示了其在实际应用中的价值。本书既适合作为C语言编程的入门教材供初学者研习，也能够为程序开发者、相关专业培训机构的教师和学生提供参考和借鉴。第一章聚焦于基础知识，详细介绍了进制转换、条件判断、多重循环图形打印、循环的数学应用、数组操作、字符与字符串处理、函数使用、趣味计算、宏定义与位运算等内容。第二章深入探讨了指针的相关知识，包括指针变量、指针与数组的关系、指针与函数的交互、字符串与指针的结合以及指向指针的指针运用。第三章着重于数据结构的学习，涵盖了结构体、链表、栈与队列、串与广义表、二叉树以及图及其应用等多个重要主题。第四章详细介绍了算法设计，涉及简单问题求解算法、排序算法、查找算法、数学定理与猜想以及逻辑推理与判断等内容。第五章围绕数学应用展开，讨论了素数问题、整数趣题、数学问题求解、矩阵运算以及生活中的数学实例。第六章专门讲解文件操作，包括了文件读写操作、文件内容处理、文件的创建与查找删除、以及文件相关操作等。第七章介绍了库函数的调用，涵盖了时间转换与操作函数、数学函数、字符串与字符函数以及其他各类函数的使用方法。第八章则聚焦于图形图像的处理，详细介绍了基本图形的绘制、色彩填充与使用技巧等。
VB

16,717

社区成员

110,522

社区内容

发帖
与我相关
我的任务
社区描述
VB技术相关讨论，主要为经典vb，即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章