vbmysql 查找重复的字段字段重复值

19:47 提问
vb.net过滤掉数组中相同的字符的元素?
"100#200#0"
"200#120#0"
"100#560#0"
"200#780#0"
"100#320#0"
"300#980#0"
"400#220#0"
"100#290#0"
"500#400#0"
"600#450#0"
我有个数组(如上),我想把每个元素第一个#前面相同的数字的元素过滤掉,
"100#200#0"
"200#120#0"
"300#980#0"
"400#220#0"
"500#400#0"
"600#450#0"
有人能帮帮我吗!
按赞数排序
假设你这些数据在一个文本框里
textBox1.Text = String.Join(VbCrLf, textBox1.Lines.Distinct())
bool compare(char *a,char *b){
while(a[i]!='#'){
if(a[i]!=b[i]){
void mcopy(char *a,char *b){
while(b[i]||a[i]){
a[i]=b[i];
int main()
char start[12][12]={"100#200#0","200#120#0","100#560#0","200#780#0","100#320#0","300#980#0","400#220#0","100#290#0","500#400#0","600#450#0"};
char result[12][12];
int i=0,j=0,k=0;
for(k=0;k&10;k++){
while(j&i){
if(compare(start[k],result[j]))
mcopy(result[i++],start[k]);
for(k=0;k&i;k++){
printf("%s\n",result[k]);
//不会VB,写了个C语言版的,拿去自己改改
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐怎么用VB判断是否在数据库中已经有重复值_百度知道
怎么用VB判断是否在数据库中已经有重复值
Private Sub Command1_Click()
Adodc1.RecordSource = &select * from 编号 where 编号='& & Text1.Text & &'&
If Adodc1.Recordset.RecordCount & 0 Then
MsgBox &记录己存在&
MsgBox &记录不存在&
Adodc1.Reco...
我有更好的答案
Recordset.RecordCount &记录不存在&
Adodc1.Recordset.AddNew
Adodc1.Recordset(&编号&)=Text1.Text
Adodc1.Recordset(&其他字段&)=Text2.Text
'..; 0 Then
MsgBox &记录己存在&
If Adodc1Text不要和Adodc1绑定,这样...Text & &&#39..
Adodc1.Recordset.Update
End IfEnd SubPrivate Sub Form_Load()'&
MsgBox &quot:Private Sub Command1_Click()
Adodc1.RecordSource = &select * from 编号 where 编号='& & Text1
采纳率:81%
来自团队:
VB下用可能出现重复值的数据做条件,查询数据库,如果查询的到数据,就是有重复值这里问题有点不明确,如果是不知道vb下怎么执行sql查询数据那就多了
可以在form_load事件里面注明text1.text=‘’,有几个文本框,同时都显示为空值,就没有重复的了。
这样的话就等于把数据库表中的第一条记录字段全部变为空值了。。。
不是第一条记录,是窗体刚显示的时候全部为空值,当控件里面填入具体的值之后点击command1(保存),才可以保存呢。把form_load中的Addnew事件去掉。
为您推荐:
其他类似问题
您可能关注的内容
数据库的相关知识
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 1386|回复: 4
用VB方式 判断 并去掉重复的列 大神帮帮忙!!!!!
阅读权限20
在线时间 小时
本帖最后由 ddrdx 于
12:36 编辑
(124.3 KB, 下载次数: 12)
12:27 上传
点击文件名下载附件
QQ截图16.png (136.53 KB, 下载次数: 3)
12:27 上传
型号是一样的 但是 后面的参数 型号有重复
我希望一键标注重复的 比如改变一下颜色
然后自己先看一下 校对校对
然后在一键删除这些标注的
麻烦大神帮帮忙
阅读权限20
在线时间 小时
一张表上有 N 多个型号
由于型号实在太多 参数太多用肉眼辨认不过来
阅读权限100
在线时间 小时
Sub dd()
Dim d As Object, arr, brr, i&, j&, s$
Set d = CreateObject(&scripting.dictionary&)
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 1 To UBound(arr)
& & s = arr(i, 2) & arr(i, 8)
& & If Not d.exists(s) Then
& && &&&k = k + 1
& && &&&For j = 1 To UBound(arr, 2)
& && && && &brr(k, j) = arr(i, j)
& && &&&Next
& && &&&d(s) = &&
& & End If
Next
Cells.ClearContents
[a1].Resize(k, UBound(arr, 2)) = brr
Set d = Nothing
End Sub
复制代码
阅读权限100
在线时间 小时
(16.09 KB, 下载次数: 32)
12:54 上传
点击文件名下载附件
阅读权限100
在线时间 小时
请见代码。
(17.39 KB, 下载次数: 10)
14:04 上传
最新热点 /1
ExcelHome每周都有线上直播公开课,
国内一流讲师真身分享,高手贴身答疑,
赶不上直播还能看录像,
关键居然是免费的!
厚木哥们都已经这么努力了,
你还好意思说学不好Office。
玩命加载中,请稍候
玩命加载中,请稍候
Powered by
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! & & 本站特聘法律顾问:徐怀玉律师 李志群律师

我要回帖

更多关于 sql 查找重复字段 的文章

 

随机推荐